* test/src/comp-test-funcs.el (comp-tests-aref-aset-f) : Fix UB.

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 168819b17d67a368af3d37506049e492533dd75b..2fe6276227a269f3baa959455a93bb0e72b77dcf 100644 (file)
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -66,7 +66,7 @@
   (length '(1 2 3)))
 
 (defun comp-tests-aref-aset-f ()
-  (let ((vec [1 2 3]))
+  (let ((vec (make-vector 3 0)))
     (aset vec 2 100)
     (aref vec 2)))